;(let ((s (make-instance 'sb-bsd-sockets:inet-socket
;			:type :datagram
;			:protocol :udp)))
;	   (sb-bsd-sockets:socket-connect s #(127 0 0 1) 34297)
;	   (when (sb-bsd-sockets:socket-open-p s)
;	     (values (sb-bsd-sockets:socket-send s (string-to-octets "GTR2_Direct_IP_Search" :null-terminate t) nil))
;	     (sb-bsd-sockets:socket-close s)))
